home *** CD-ROM | disk | FTP | other *** search
/ MacPeople 1998 #2 / MACPEOPLE-1998-NO2.ISO / アップル関連 / ARA PS アップデート / モデム用追加分 / Supra 288⁄V.34 / Supra 288_V.34 next >
Text File  |  1995-02-28  |  4KB  |  256 lines
  1. !                              SUPRA CORPORATION
  2. !
  3. !                         APPLE REMOTE ACCESS 1.0/2.0
  4. !                  COMMUNICATION CONTROL LANGUAGE SCRIPT
  5. ! 
  6. !             ENGINEERED BY MARK B. COOPER (edited 2/95 for V.34 support. JHE)
  7. !
  8. @ORIGINATE
  9. @ANSWER
  10. !
  11. @LABEL 1
  12. SETTRIES 0
  13. HSRESET 0 1 0 0 0 0
  14. DTRSET
  15. !Wait for modem to powerup
  16. PAUSE 30
  17.  
  18. @Label 3
  19. SERRESET 57600, 0, 8, 1
  20. ! SETUP DEFAULT DIALING STRING FOR THE MODEM.
  21. matchstr 1 7 "OK¥13¥10"
  22. write "AT &F1B1S0=0M0E0¥¥N0N1%C0S46=136&C1&K3&D2W2S95=12S7=120¥13"
  23. matchread 30
  24. inctries
  25. iftries 2 5
  26. SBREAK
  27. Jump 3
  28.  
  29. @Label 5
  30. HSRESET 0 0 0 0 0 0
  31. SERRESET 2400, 0, 8, 1
  32. Write "AT¥13"
  33. ! SETUP DEFAULT DIALING STRING FOR THE MODEM.
  34. MatchClr
  35. matchstr 1 13 "OK¥13¥10"
  36. write "AT &FS0=0M0E0&C1S7=120&P1¥13"
  37. matchread 30
  38. inctries
  39. iftries 2 98
  40. SBREAK
  41. jump 5
  42.  
  43. @LABEL 7
  44. ! CHECK ERROR CORRECTION LINK REQUEST
  45. ! MNP10 = 2, LAP-M/MNP = 1
  46. ifstr 4 9 "2"
  47. ifstr 4 11 "1"
  48. jump 13
  49.  
  50. @LABEL 9
  51. ! Configure MNP10 operation
  52. ! Used with ARA 2.0 only
  53. write "AT¥¥N3)M1-K1¥13"
  54. Jump 13
  55.  
  56. @Label 11
  57. ! Configure LAP-M/MNP operation
  58. ! Used with ARA 2.0 only
  59. write "AT¥¥N3¥13"
  60.  
  61. @LABEL 13
  62. ! SETUP ACCORDING TO SPEAKER OPTION
  63. ifstr 2 15 "0"
  64. matchclr
  65. matchstr 1 15 "OK¥13¥10"
  66. write "ATM1¥13"
  67. matchread 30
  68. jump 98
  69.  
  70. @LABEL 15
  71. ! TURN ON AUTO ANSWER
  72. iforiginate 17
  73. write "ATS0=1¥13"
  74. Jump 40
  75.  
  76. @LABEL 17
  77. ! 1 = blind, 2 =manual
  78. ifstr 6 21 "1"
  79. ifstr 6 19 "2"
  80. Jump 23
  81.  
  82. @LABEL 19
  83. note "Initiating Manual Connect..." 3
  84. write "ATD¥13"
  85. jump 40
  86.  
  87. @LABEL 21
  88. note "Dialing without dialtone detection." 3
  89. matchclr
  90. matchstr 1 23 "OK¥13¥10"
  91. write "ATX1¥13"
  92. matchread 30
  93. jump 98
  94.  
  95. @LABEL 23
  96. USERHOOK 1
  97. note "Dialing ^1." 3
  98. write "ATD^3^1¥13"
  99.  
  100. @LABEL 40
  101. !Wait for modem connection speed result code
  102. matchstr 1 44 "CONNECT¥13¥10"
  103. matchstr 2 44 " 2400¥13¥10"
  104. matchstr 3 46 " 9600¥13¥10"
  105. matchstr 4 48 " 14400¥13¥10"
  106. matchstr 5 50 " 16800¥13¥10"
  107. matchstr 6 52 " 19200¥13¥10"
  108. matchstr 7 54 " 21600¥13¥10"
  109. matchstr 8 56 " 24000¥13¥10"
  110. matchstr 9 58 " 26400¥13¥10"
  111. matchstr 10 60 " 28800¥13¥10"
  112. matchstr 12 42 "RING¥13¥10"
  113. matchstr 13 90 "NO CARRIER¥13¥10"
  114. matchstr 14 92 "NO DIALTONE¥13¥10"
  115. matchstr 15 94 "BUSY¥13¥10"
  116. matchstr 16 96 "NO ANSWER¥13¥10"
  117. matchread 1200
  118. ifANSWER 40
  119. jump 96
  120.  
  121. @LABEL 42
  122. note "Answering Phone..." 2
  123. USERHOOK 1
  124. jump 40
  125.  
  126. @LABEL 44
  127. note "Communicating at 2400 bps." 2
  128. CommunicatingAt 2400
  129. jump 70
  130.  
  131. @LABEL 46
  132. note "Communicating at 9600 bps." 2
  133. CommunicatingAt 9600
  134. jump 70
  135.  
  136. @LABEL 48
  137. note "Communicating at 14400 bps." 2
  138. CommunicatingAt 14400
  139. jump 70
  140.  
  141. @LABEL 50
  142. note "Communicating at 16800 bps." 2
  143. CommunicatingAt 16800
  144. jump 70
  145.  
  146. @LABEL 52
  147. note "Communicating at 19200 bps." 2
  148. CommunicatingAt 19200
  149. jump 70
  150.  
  151. @LABEL 54
  152. note "Communicating at 21600 bps." 2
  153. CommunicatingAt 21600
  154. jump 70
  155.  
  156. @LABEL 56
  157. note "Communicating at 24000 bps." 2
  158. CommunicatingAt 24000
  159. jump 70
  160.  
  161. @LABEL 58
  162. note "Communicating at 26400 bps." 2
  163. CommunicatingAt 26400
  164. jump 70
  165.  
  166. @LABEL 60
  167. note "Communicating at 28800 bps." 2
  168. CommunicatingAt 28800
  169. Jump 70
  170.  
  171. @LABEL 70
  172. matchclr
  173. matchstr 1 78 "PROTOCOL: NONE¥13¥10"
  174. matchstr 2 72 "PROTOCOL: LAP-M¥13¥10"
  175. matchstr 3 74 "PROTOCOL: ALT¥13¥10"
  176. matchstr 4 76 "PROTOCOL: ALT - CELLULAR¥13¥10"
  177. matchread 50
  178. Jump 78
  179.  
  180. @LABEL 72
  181. note "LAP-M reliable link established." 3
  182. userhook 2
  183. jump 78
  184.  
  185. @LABEL 74
  186. note "MNP reliable link established." 3
  187. userhook 2
  188. jump 78
  189.  
  190. @LABEL 76
  191. note "MNP10 reliable link established." 3
  192. userhook 4
  193. jump 78
  194.  
  195. @LABEL 78
  196. exit 0
  197.  
  198.  
  199. @HANGUP
  200. @LABEL 80
  201. settries 0
  202. HSReset 0 0 0 0 0 0 
  203. DTRClear
  204.  
  205. @LABEL 82
  206. Flush
  207. SBREAK
  208. pause 5
  209. matchclr
  210. matchstr 1 84 "NO CARRIER¥13¥10"
  211. matchstr 2 84 "OK¥13¥10"
  212. matchstr 3 84 "ERROR¥13¥10"
  213. matchstr 4 84 "0¥13¥10"
  214. write "ATH¥13"
  215. matchread 30
  216. inctries
  217. iftries 3 98
  218. write "+++"
  219. jump 82
  220.  
  221. @LABEL 84
  222. matchclr
  223. matchstr 1 86 "OK¥13¥10"
  224. write "AT&F¥13"
  225. matchread 30
  226. jump 98
  227.  
  228. @LABEL 86
  229. userhook 0
  230. exit 0
  231.  
  232. ! General script errors
  233. @LABEL 90
  234. ! NO CARRIER
  235. exit -6021
  236.  
  237. @LABEL 92
  238. ! NO DIALTONE
  239. exit -6020
  240.  
  241. @LABEL 94
  242. ! BUSY SIGNAL DETECTED
  243. exit -6022
  244.  
  245. @LABEL 96
  246. ! NO ANSWER
  247. exit -6023
  248.  
  249. @LABEL 98
  250. ! MODEM NOT RESPONDING
  251. exit -6019
  252.  
  253. @LABEL 100
  254. ! VARSTRING ERROR
  255. exit -6027
  256.